home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / AGSLEM11.ZIP / PAGER.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1996-04-13  |  36.2 KB  |  1,691 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Boolean  BOOLEAN006
  25.     Boolean  BOOLEAN009
  26.     Integer  INTEGER001
  27.     Integer  INTEGER002
  28.     Integer  INTEGER003
  29.     Integer  INTEGER004
  30.     Integer  INTEGER005
  31.     Integer  INTEGER011
  32.     Real     REAL001
  33.     String   STRING001
  34.     String   STRING002
  35.     String   STRING003
  36.     String   STRING004
  37.     String   STRING005
  38.     String   TSTRING006(5)
  39.     String   STRING007
  40.     String   TSTRING010(2)
  41.     String   STRING013
  42.     String   STRING014
  43.     String   STRING015
  44.     String   STRING017
  45.     Time     TIME001
  46.     Time     TIME002
  47.     Int      INT001
  48.     Int      INT002
  49.     Int      INT003
  50.     Int      INT004
  51.     Int      INT005
  52.     Int      INT006
  53.     Int      INT007
  54.     Int      INT008
  55.     Int      INT009
  56.     Int      INT010
  57.     Int      INT011
  58.     Int      INT012
  59.     Int      INT013
  60.     Int      INT014
  61.     Int      INT015
  62.     Int      INT035
  63.     Declare  Function FUNCTION001(String STRING008, Int INT029, Int INT030, Int INT031, Int INT032, Int INT033, Int INT034) Integer
  64.     Declare  Function FUNCTION002() Boolean
  65.     Declare  Function FUNCTION003(Integer INTEGER008, Integer INTEGER009, Integer INTEGER010, String STRING011, String STRING012, Boolean BOOLEAN007, Boolean BOOLEAN008) String
  66.     Declare  Function FUNCTION004(String STRING016) Boolean
  67.     Declare  Procedure PROC001(Int INT016, Int INT017, Int INT018, Int INT019)
  68.     Declare  Procedure PROC002(Int INT020, Int INT021, Int INT022)
  69.     Declare  Procedure PROC003(Int INT026, Int INT027, Int INT028)
  70.     Declare  Procedure PROC004(Int INT037, Int INT038, Int INT039)
  71.     Declare  Procedure PROC005(Int INT023, Int INT024, Int INT025)
  72.     Declare  Procedure PROC006(Integer INTEGER006)
  73.     Declare  Procedure PROC007(Integer INTEGER007)
  74.     Declare  Procedure PROC008()
  75.     Declare  Procedure PROC009(Int INT036)
  76.     Declare  Procedure PROC010(String STRING009)
  77.     Declare  Procedure PROC011()
  78.     Declare  Procedure PROC012()
  79.     Declare  Procedure PROC013()
  80.     Declare  Procedure PROC014()
  81.     Declare  Procedure PROC015()
  82.     Declare  Procedure PROC016()
  83.     Declare  Procedure PROC017()
  84.  
  85. ;------------------------------------------------------------------------------
  86.  
  87.     PageOn
  88.     BOOLEAN005 = 0
  89.     Cls
  90.     StartDisp 1
  91.     INT003 = 17
  92.     INT001 = 1
  93.     INT004 = 13
  94.     INT005 = -1
  95.     INT006 = 10
  96.     REAL001 = 0
  97.     INT008 = 0
  98.     INT009 = 0
  99.     INT010 = 1
  100.     INT011 = 23
  101.     STRING005 = ReadLine(PPEPath() + "PAGER.CFG", 1)
  102.     INT015 = ToInt(ReadLine(PPEPath() + "PAGER.CFG", 10))
  103.     INTEGER002 = ToBoolean(ReadLine(PPEPath() + "PAGER.CFG", 11))
  104.     INTEGER003 = ToBoolean(ReadLine(PPEPath() + "PAGER.CFG", 12))
  105.     INTEGER004 = ToInt(ReadLine(PPEPath() + "PAGER.CFG", 13))
  106.     If (ReadLine(PPEPath() + "PAGER.CFG", 14) == "Y") BOOLEAN004 = 1
  107.     PROC016()
  108.     PROC001(INT001, INT005, INT004, INT003)
  109.     TSTRING006(0) = ScrText(20, 9, 40, 1)
  110.     TSTRING006(1) = ScrText(20, 10, 40, 1)
  111.     TSTRING006(2) = ScrText(20, 11, 40, 1)
  112.     TSTRING006(3) = ScrText(20, 12, 40, 1)
  113.     TSTRING006(4) = ScrText(20, 13, 40, 1)
  114.     TSTRING006(5) = ScrText(20, 14, 40, 1)
  115.     AnsiPos 20, 9
  116.     Print "@X0F█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█"
  117.     AnsiPos 20, 10
  118.     Print "@X0F█       Your reason for paging ?       █"
  119.     AnsiPos 20, 11
  120.     Print "@X0F█                                      █"
  121.     AnsiPos 20, 12
  122.     Print "@X0F█ [..................................] █"
  123.     AnsiPos 20, 13
  124.     Print "@X0F█                                      █"
  125.     AnsiPos 20, 14
  126.     Print "@X0F█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█"
  127.     STRING007 = FUNCTION003(23, 12, 34, "", Mask_Ascii(), 1, 0)
  128.     If (STRING007 == "") Then
  129.         Cls
  130.         End
  131.     Endif
  132.     AnsiPos 20, 9
  133.     Print TSTRING006(0)
  134.     AnsiPos 20, 10
  135.     Print TSTRING006(1)
  136.     AnsiPos 20, 11
  137.     Print TSTRING006(2)
  138.     AnsiPos 20, 12
  139.     Print TSTRING006(3)
  140.     AnsiPos 20, 13
  141.     Print TSTRING006(4)
  142.     AnsiPos 20, 14
  143.     Print TSTRING006(5)
  144.     While (GetToken() <> "") Do
  145.     EndWhile
  146.     STRING003 = ReadLine(PPEPath() + "PAGER.CFG", 9)
  147.     Tokenize STRING003
  148.     BOOLEAN003 = 1
  149.     While (TokCount() > 0) Do
  150.         STRING004 = GetToken()
  151.         TIME001 = ToTime(Left(STRING004, 5))
  152.         TIME002 = ToTime(Right(STRING004, 5))
  153.         If ((Time() > TIME001) && (Time() < TIME002)) BOOLEAN003 = 0
  154.     EndWhile
  155.     If (FUNCTION004("PAGER.SIL")) BOOLEAN003 = 0
  156.     BOOLEAN002 = BOOLEAN003
  157.     While (GetToken() <> "") Do
  158.     EndWhile
  159.     STRING003 = ReadLine(PPEPath() + "PAGER.CFG", 2 + Dow(Date()))
  160.     Tokenize STRING003
  161.     While (TokCount() > 0) Do
  162.         STRING004 = GetToken()
  163.         TIME001 = ToTime(Left(STRING004, 5))
  164.         TIME002 = ToTime(Right(STRING004, 5))
  165.         If ((Time() > TIME001) && (Time() < TIME002)) Goto LABEL001
  166.     EndWhile
  167.     Goto LABEL004
  168.     :LABEL001
  169.     If (FUNCTION004("PAGER.NOT")) Goto LABEL004
  170.     AnsiPos 40 - Len(STRING007) / 2, 23
  171.     SPrint STRING007
  172.     While (1) Do
  173.         If (BOOLEAN001) Goto LABEL002
  174.         Inc INT009
  175.         Inc INT001
  176.         Inc INT002
  177.         If (INT001 == 9) INT001 = 1
  178.         If (INT002 == 17) INT002 = 1
  179.         If (((INT004 == 63) && (INT005 == 1)) || ((INT004 == 13) && (INT005 == -1))) Then
  180.             If (INT005 == 1) Then
  181.                 INT005 = -1
  182.             Else
  183.                 INT005 = 1
  184.             Endif
  185.         Else
  186.             If (INT006 > 0) INT004 = INT004 + INT005
  187.         Endif
  188.         If (INT006 == 0) Then
  189.             INT007 = INT004
  190.             If (INT005 == -1) Dec INT007
  191.             PROC005(0, INT007, 14)
  192.         Endif
  193.         If (INT006 <= 0) Then
  194.             PROC003(INT010, INT004, INT003)
  195.             Inc INT010
  196.         Else
  197.             PROC001(INT001, INT005, INT004, INT003)
  198.         Endif
  199.         If (INT009 > 0) Then
  200.             REAL001 = REAL001 + 1.035
  201.             INT007 = INT004
  202.             If (INT005 == -1) Dec INT007
  203.             PROC005(INT006, INT007, 14)
  204.             If (REAL001 >= 13 * (11 - INT006)) Then
  205.                 Dec INT006
  206.             Endif
  207.         Endif
  208.         Inc INT008
  209.         While (OutBytes() > 0) Do
  210.         EndWhile
  211.         If (ToReal(INT008) / 3 == ToInt(INT008) / 3) Then
  212.             If (BOOLEAN002) Then
  213.                 Sound 400
  214.             Else
  215.                 PROC013()
  216.             Endif
  217.             Delay INTEGER004
  218.             If (INTEGER002) MPrint ""
  219.         Else
  220.             If (BOOLEAN002) Then
  221.                 Sound 0
  222.             Else
  223.                 PROC014()
  224.             Endif
  225.             Delay INTEGER004
  226.         Endif
  227.         STRING001 = MInkey()
  228.         If (STRING001 == Chr(27)) Break
  229.         STRING001 = Upper(KInkey())
  230.         If (STRING001 == Chr(27)) Break
  231.         If (STRING001 == "S") Then
  232.             BOOLEAN002 = !BOOLEAN002
  233.             If (!BOOLEAN002) Sound 0
  234.         Endif
  235.         If (STRING001 == " ") Then
  236.             PageOff
  237.             Cls
  238.             BOOLEAN005 = 1
  239.             PROC014()
  240.             Sound 0
  241.             Chat
  242.             PROC010("")
  243.         Endif
  244.     EndWhile
  245.     PROC014()
  246.     Sound 0
  247.     PROC010("")
  248.     :LABEL002
  249.     PROC014()
  250.     Sound 0
  251.     INT001 = FUNCTION001("FAILED", 9, 23, 50, 3, 1, 1)
  252.     If ((INT001 == 1) || (INT001 == 0)) PROC010("")
  253.     If (INT001 == 2) PROC010("C" + Chr(13))
  254.     :LABEL003
  255.     PROC014()
  256.     Sound 0
  257.     PROC017()
  258.     INT009 = 0
  259.     INT008 = 0
  260.     INT002 = 0
  261.     INT005 = -1
  262.     INT004 = 50
  263.     INT003 = 5
  264.     INT010 = 0
  265.     BOOLEAN001 = 0
  266.     BOOLEAN002 = BOOLEAN003
  267.     PROC002(INT002, 1, 5)
  268.     PROC001(1, INT005, INT004, INT003)
  269.     If (!FUNCTION002()) Goto LABEL002
  270.     AnsiPos 40 - Len(STRING007) / 2, 23
  271.     SPrint STRING007
  272.     While (1) Do
  273.         If (BOOLEAN001) Goto LABEL002
  274.         Inc INT009
  275.         PROC002(INT002, 1, 5)
  276.         Inc INT001
  277.         Inc INT002
  278.         If (INT001 == 9) INT001 = 1
  279.         If (INT002 == 17) INT002 = 1
  280.         INT008 = INT008 + 1
  281.         If (ToReal(INT008) / 3 == ToInt(INT008) / 3) Then
  282.             If (BOOLEAN002) Then
  283.                 Sound 2000
  284.             Else
  285.                 PROC015()
  286.             Endif
  287.             If (INTEGER003) MPrint ""
  288.             Delay INTEGER004
  289.         Else
  290.             If (BOOLEAN002) Then
  291.                 Sound 0
  292.             Else
  293.                 PROC014()
  294.             Endif
  295.             Delay INTEGER004
  296.         Endif
  297.         If (INT009 < 85) Then
  298.             PROC001(INT001, INT005, INT004, INT003)
  299.             INT004 = INT004 + INT005
  300.         Else
  301.             If (INT009 == 85) Inc INT004
  302.             PROC004(INT010, INT004, INT003)
  303.             Inc INT010
  304.         Endif
  305.         If ((INT004 == 13) && (INT005 == -1)) INT005 = 1
  306.         STRING001 = MInkey()
  307.         If (STRING001 == Chr(27)) Break
  308.         STRING001 = Upper(KInkey())
  309.         If (STRING001 == Chr(27)) Break
  310.         If (STRING001 == "S") Then
  311.             BOOLEAN002 = !BOOLEAN002
  312.             If (!BOOLEAN002) Sound 0
  313.         Endif
  314.         If (STRING001 == " ") Then
  315.             PageOff
  316.             Cls
  317.             BOOLEAN005 = 1
  318.             PROC014()
  319.             Sound 0
  320.             Chat
  321.             PROC010("")
  322.         Endif
  323.     EndWhile
  324.     PROC014()
  325.     Sound 0
  326.     PROC010("")
  327.     :LABEL004
  328.     PROC014()
  329.     Sound 0
  330.     INT001 = FUNCTION001("SLEEPING", 10, 16, 44, 3, 1, 1)
  331.     If ((INT001 == 1) || (INT001 == 0)) PROC010("")
  332.     If (INT001 == 2) PROC010("C" + Chr(13))
  333.     Goto LABEL003
  334.     PROC014()
  335.     Sound 0
  336.     PROC010("")
  337.     End
  338.  
  339. ;------------------------------------------------------------------------------
  340.  
  341.     Procedure PROC001(Int INT016, Int INT017, Int INT018, Int INT019)
  342.  
  343.     If (INT017 == 1) Then
  344.         Select Case (INT016)
  345.             Case 1
  346.                 AnsiPos INT018, INT019
  347.                 Print " @X02▄█▄▀  "
  348.                 AnsiPos INT018, INT019 + 1
  349.                 Print " @X02▀@X2F▄@X0F█▄  "
  350.                 AnsiPos INT018, INT019 + 2
  351.                 Print " @X0F @X1F▀▄@X07   "
  352.                 AnsiPos INT018, INT019 + 3
  353.                 Print " @X0F @X01█@X1F▀@X0F █ "
  354.                 AnsiPos INT018, INT019 + 4
  355.                 Print " @X1F▄▄@X0F ▀  "
  356.             Case 2
  357.                 AnsiPos INT018, INT019
  358.                 Print " @X0F @X02▄ ▄  "
  359.                 AnsiPos INT018, INT019 + 1
  360.                 Print " @X02 ▀█@X2F▄@X07  "
  361.                 AnsiPos INT018, INT019 + 2
  362.                 Print " @X0F  @X1F▀@X0F█▀ "
  363.                 AnsiPos INT018, INT019 + 3
  364.                 Print " @X0F  @X01█@X1F▀@X0F▄ "
  365.                 AnsiPos INT018, INT019 + 4
  366.                 Print " @X0F▄@X1F▄@X01▀▀@X1F▄@X0F▄"
  367.             Case 3
  368.                 AnsiPos INT018, INT019
  369.                 Print " @X0F  @X02▄▄  "
  370.                 AnsiPos INT018, INT019 + 1
  371.                 Print " @X02 █@X2F▄█▄@X07 "
  372.                 AnsiPos INT018, INT019 + 2
  373.                 Print " @X0F  █@X01█  "
  374.                 AnsiPos INT018, INT019 + 3
  375.                 Print " @X01  █@X1F▀@X07  "
  376.                 AnsiPos INT018, INT019 + 4
  377.                 Print " @X0F█@X01▀▀@X1F▄▄@X07 "
  378.             Case 4
  379.                 AnsiPos INT018, INT019
  380.                 Print " @X02▄▄▄▄  "
  381.                 AnsiPos INT018, INT019 + 1
  382.                 Print " @X02▀@X2F▄@X0F█▄  "
  383.                 AnsiPos INT018, INT019 + 2
  384.                 Print " @X0F █@X01█   "
  385.                 AnsiPos INT018, INT019 + 3
  386.                 Print " @X01 @X1F▀@X01█   "
  387.                 AnsiPos INT018, INT019 + 4
  388.                 Print " @X0F▀@X1F▄▄@X07   "
  389.             Case 5
  390.                 AnsiPos INT018, INT019
  391.                 Print " @X02▄█▄▀  "
  392.                 AnsiPos INT018, INT019 + 1
  393.                 Print " @X02▀@X2F▄@X0F█▄  "
  394.                 AnsiPos INT018, INT019 + 2
  395.                 Print " @X0F▄@X1F▀@X01█   "
  396.                 AnsiPos INT018, INT019 + 3
  397.                 Print " @X0F▀@X01██ @X0F█ "
  398.                 AnsiPos INT018, INT019 + 4
  399.                 Print " @X1F▄▄@X0F ▀  "
  400.             Case 6
  401.                 AnsiPos INT018, INT019
  402.                 Print " @X0F @X02▄ ▄  "
  403.                 AnsiPos INT018, INT019 + 1
  404.                 Print " @X02 ▀█@X2F▄@X07  "
  405.                 AnsiPos INT018, INT019 + 2
  406.                 Print " @X0F ▄█@X1F▀@X0F▀ "
  407.                 AnsiPos INT018, INT019 + 3
  408.                 Print " @X0F▄█@X01██▄ "
  409.                 AnsiPos INT018, INT019 + 4
  410.                 Print " @X0F▄@X1F▄@X01▀▀@X1F▄@X0F▄"
  411.             Case 7
  412.                 AnsiPos INT018, INT019
  413.                 Print " @X0F  @X02▄▄  "
  414.                 AnsiPos INT018, INT019 + 1
  415.                 Print " @X02 █@X2F▄@X0F█@X2F▄@X07 "
  416.                 AnsiPos INT018, INT019 + 2
  417.                 Print " @X0F  █@X01█  "
  418.                 AnsiPos INT018, INT019 + 3
  419.                 Print " @X01 @X0F▀@X01██  "
  420.                 AnsiPos INT018, INT019 + 4
  421.                 Print " @X0F█@X01▀▀@X1F▄▄@X07 "
  422.             Case 8
  423.                 AnsiPos INT018, INT019
  424.                 Print " @X0F @X02▄▄▄▄ "
  425.                 AnsiPos INT018, INT019 + 1
  426.                 Print " @X02 █@X2F▄@X0F█▄ "
  427.                 AnsiPos INT018, INT019 + 2
  428.                 Print " @X0F  @X1F▀▄@X07  "
  429.                 AnsiPos INT018, INT019 + 3
  430.                 Print " @X0F  @X1F▀@X01█  "
  431.                 AnsiPos INT018, INT019 + 4
  432.                 Print " @X01 @X0F▀@X1F▄▄@X07  "
  433.         End Select
  434.     Else
  435.         Select Case (INT016)
  436.             Case 1
  437.                 AnsiPos INT018, INT019
  438.                 Print "@X0F @X02▀▄█▄  "
  439.                 AnsiPos INT018, INT019 + 1
  440.                 Print "@X02 @X0F▄█@X2F▄@X02▀  "
  441.                 AnsiPos INT018, INT019 + 2
  442.                 Print "@X02  @X1F▄▀@X07   "
  443.                 AnsiPos INT018, INT019 + 3
  444.                 Print "@X0F█ @X1F▀@X01█   "
  445.                 AnsiPos INT018, INT019 + 4
  446.                 Print "@X01 @X0F▀ @X1F▄▄@X07  "
  447.             Case 2
  448.                 AnsiPos INT018, INT019
  449.                 Print "@X0F  @X02▄ ▄  "
  450.                 AnsiPos INT018, INT019 + 1
  451.                 Print "@X02  @X2F▄@X02█▀  "
  452.                 AnsiPos INT018, INT019 + 2
  453.                 Print "@X02 @X0F▀█@X1F▀@X07   "
  454.                 AnsiPos INT018, INT019 + 3
  455.                 Print "@X0F ▄@X1F▀@X01█   "
  456.                 AnsiPos INT018, INT019 + 4
  457.                 Print "@X0F▄@X1F▄@X01▀▀@X1F▄@X0F▄ "
  458.             Case 3
  459.                 AnsiPos INT018, INT019
  460.                 Print "@X0F @X02▄▄    "
  461.                 AnsiPos INT018, INT019 + 1
  462.                 Print "@X2F▄█▄@X02█   "
  463.                 AnsiPos INT018, INT019 + 2
  464.                 Print "@X02 @X01█@X0F█    "
  465.                 AnsiPos INT018, INT019 + 3
  466.                 Print "@X0F @X1F▀@X01█    "
  467.                 AnsiPos INT018, INT019 + 4
  468.                 Print "@X1F▄▄@X01▀▀@X0F█  "
  469.             Case 4
  470.                 AnsiPos INT018, INT019
  471.                 Print "@X02▄▄▄▄   "
  472.                 AnsiPos INT018, INT019 + 1
  473.                 Print "@X0F▄█@X2F▄@X02▀   "
  474.                 AnsiPos INT018, INT019 + 2
  475.                 Print "@X02 @X01█@X0F█    "
  476.                 AnsiPos INT018, INT019 + 3
  477.                 Print "@X0F @X01█@X1F▀@X07    "
  478.                 AnsiPos INT018, INT019 + 4
  479.                 Print "@X01 @X1F▄▄@X0F▀   "
  480.             Case 5
  481.                 AnsiPos INT018, INT019
  482.                 Print "@X07 @X02▀▄█▄  "
  483.                 AnsiPos INT018, INT019 + 1
  484.                 Print "@X02 @X0F▄█@X2F▄@X02▀  "
  485.                 AnsiPos INT018, INT019 + 2
  486.                 Print "@X02  @X01█@X1F▀@X0F▄  "
  487.                 AnsiPos INT018, INT019 + 3
  488.                 Print "@X0F█ @X01██@X0F▀  "
  489.                 AnsiPos INT018, INT019 + 4
  490.                 Print "@X0F ▀ @X1F▄▄@X07  "
  491.             Case 6
  492.                 AnsiPos INT018, INT019
  493.                 Print "@X0F  @X02▄ ▄  "
  494.                 AnsiPos INT018, INT019 + 1
  495.                 Print "@X02  @X2F▄@X02█▀  "
  496.                 AnsiPos INT018, INT019 + 2
  497.                 Print "@X02 @X0F▀@X1F▀@X0F█▄  "
  498.                 AnsiPos INT018, INT019 + 3
  499.                 Print "@X0F @X01▄██@X0F█▄ "
  500.                 AnsiPos INT018, INT019 + 4
  501.                 Print "@X0F▄@X1F▄@X01▀▀@X1F▄@X0F▄ "
  502.             Case 7
  503.                 AnsiPos INT018, INT019
  504.                 Print "@X0F @X02▄▄    "
  505.                 AnsiPos INT018, INT019 + 1
  506.                 Print "@X2F▄@X0F█@X2F▄@X02█   "
  507.                 AnsiPos INT018, INT019 + 2
  508.                 Print "@X02 @X01█@X0F█    "
  509.                 AnsiPos INT018, INT019 + 3
  510.                 Print "@X0F @X01██@X0F▀   "
  511.                 AnsiPos INT018, INT019 + 4
  512.                 Print "@X1F▄▄@X01▀▀@X0F█  "
  513.             Case 8
  514.                 AnsiPos INT018, INT019
  515.                 Print "@X02▄▄▄▄   "
  516.                 AnsiPos INT018, INT019 + 1
  517.                 Print "@X0F▄█@X2F▄@X02█   "
  518.                 AnsiPos INT018, INT019 + 2
  519.                 Print "@X02 @X1F▄▀@X07    "
  520.                 AnsiPos INT018, INT019 + 3
  521.                 Print "@X0F @X01█@X1F▀@X07    "
  522.                 AnsiPos INT018, INT019 + 4
  523.                 Print "@X0F @X1F▄▄@X0F▀   "
  524.             Endif
  525.     End Select
  526.  
  527.     EndProc
  528.  
  529.  
  530. ;------------------------------------------------------------------------------
  531.  
  532.     Procedure PROC002(Int INT020, Int INT021, Int INT022)
  533.  
  534.     Select Case (INT020)
  535.         Case 0
  536.             AnsiPos INT021, INT022
  537.             Print " @X0F     @X02▄▄    "
  538.             AnsiPos INT021, INT022 + 1
  539.             Print " @X02    ██@X2F▄▄@X07   "
  540.             AnsiPos INT021, INT022 + 2
  541.             Print " @X0F █▄▄▄@X1F▀▀@X0F▄▄▄█"
  542.             AnsiPos INT021, INT022 + 3
  543.             Print " @X0F    @X01▄██▄   "
  544.             AnsiPos INT021, INT022 + 4
  545.             Print " @X01   @X0F▄@X1F▄@X0F  @X1F▄@X0F▄  "
  546.         Case 2
  547.             AnsiPos INT021 + 5, INT022 + 1
  548.             Print "@X02█@X2F▄▄@X02█"
  549.             AnsiPos INT021 + 9, INT022 + 4
  550.             Print "@X0F▀"
  551.         Case 4
  552.             AnsiPos INT021 + 8, INT022
  553.             Print "@X02▄"
  554.             AnsiPos INT021 + 5, INT022 + 1
  555.             Print "@X2F▄▄▄@X02██"
  556.             AnsiPos INT021 + 9, INT022 + 4
  557.             Print "@X0F▄"
  558.         Case 5
  559.             AnsiPos INT021 + 8, INT022
  560.             Print "@X0F "
  561.             AnsiPos INT021 + 7, INT022 + 1
  562.             Print "@X02█"
  563.         Case 6
  564.             AnsiPos INT021 + 9, INT022 + 1
  565.             Print "@X02▄"
  566.             AnsiPos INT021 + 9, INT022 + 4
  567.             Print "@X0F▀"
  568.         Case 7
  569.             AnsiPos INT021 + 9, INT022 + 1
  570.             Print "@X0F "
  571.         Case 8
  572.             AnsiPos INT021 + 9, INT022 + 4
  573.             Print "@X0F▄"
  574.         Case 10
  575.             AnsiPos INT021 + 5, INT022 + 1
  576.             Print "@X02█@X2F▄▄@X02█"
  577.             AnsiPos INT021 + 9, INT022 + 4
  578.             Print "@X0F▀"
  579.         Case 12
  580.             AnsiPos INT021 + 7, INT022
  581.             Print "@X02▄"
  582.             AnsiPos INT021 + 4, INT022 + 1
  583.             Print "@X02██@X2F▄▄▄@X07"
  584.             AnsiPos INT021 + 9, INT022 + 4
  585.             Print "@X0F▄"
  586.         Case 13
  587.             AnsiPos INT021 + 5, INT022
  588.             Print "@X0F "
  589.             AnsiPos INT021 + 6, INT022 + 1
  590.             Print "@X02█"
  591.         Case 14
  592.             AnsiPos INT021 + 4, INT022 + 1
  593.             Print "@X02▄"
  594.             AnsiPos INT021 + 9, INT022 + 4
  595.             Print "@X0F▀"
  596.         Case 15
  597.             AnsiPos INT021 + 4, INT022 + 1
  598.             Print "@X0F "
  599.         Case 16
  600.             AnsiPos INT021 + 9, INT022 + 4
  601.             Print "@X0F▄"
  602.     End Select
  603.  
  604.     EndProc
  605.  
  606.  
  607. ;------------------------------------------------------------------------------
  608.  
  609.     Procedure PROC005(Int INT023, Int INT024, Int INT025)
  610.  
  611.     Select Case (INT023)
  612.         Case 10
  613.             AnsiPos INT024 - 1, INT025
  614.             Print " @X0F█ █▀█ "
  615.             AnsiPos INT024 - 1, INT025 + 1
  616.             Print " @X0F█ █ █ "
  617.             AnsiPos INT024 - 1, INT025 + 2
  618.             Print " @X0F▀ ▀▀▀ "
  619.         Case 9
  620.             AnsiPos INT024 - 1, INT025
  621.             Print " @X0F  █▀█ "
  622.             AnsiPos INT024 - 1, INT025 + 1
  623.             Print " @X0F  ▀▀█ "
  624.             AnsiPos INT024 - 1, INT025 + 2
  625.             Print " @X0F  ▀▀▀ "
  626.         Case 8
  627.             AnsiPos INT024 - 1, INT025
  628.             Print " @X0F  █▀█ "
  629.             AnsiPos INT024 - 1, INT025 + 1
  630.             Print " @X0F  █▀█ "
  631.             AnsiPos INT024 - 1, INT025 + 2
  632.             Print " @X0F  ▀▀▀ "
  633.         Case 7
  634.             AnsiPos INT024 - 1, INT025
  635.             Print " @X0F  ▀▀█ "
  636.             AnsiPos INT024 - 1, INT025 + 1
  637.             Print " @X0F    █ "
  638.             AnsiPos INT024 - 1, INT025 + 2
  639.             Print " @X0F    ▀ "
  640.         Case 6
  641.             AnsiPos INT024 - 1, INT025
  642.             Print " @X0F  █▀▀ "
  643.             AnsiPos INT024 - 1, INT025 + 1
  644.             Print " @X0F  █▀█ "
  645.             AnsiPos INT024 - 1, INT025 + 2
  646.             Print " @X0F  ▀▀▀ "
  647.         Case 5
  648.             AnsiPos INT024 - 1, INT025
  649.             Print " @X0F  █▀▀ "
  650.             AnsiPos INT024 - 1, INT025 + 1
  651.             Print " @X0F  ▀▀█ "
  652.             AnsiPos INT024 - 1, INT025 + 2
  653.             Print " @X0F  ▀▀▀ "
  654.         Case 4
  655.             AnsiPos INT024 - 1, INT025
  656.             Print " @X0F  █   "
  657.             AnsiPos INT024 - 1, INT025 + 1
  658.             Print " @X0F  █▄█ "
  659.             AnsiPos INT024 - 1, INT025 + 2
  660.             Print " @X0F    ▀ "
  661.         Case 3
  662.             AnsiPos INT024 - 1, INT025
  663.             Print " @X0F  ▀▀█ "
  664.             AnsiPos INT024 - 1, INT025 + 1
  665.             Print " @X0F   ▀█ "
  666.             AnsiPos INT024 - 1, INT025 + 2
  667.             Print " @X0F  ▀▀▀ "
  668.         Case 2
  669.             AnsiPos INT024 - 1, INT025
  670.             Print " @X0F  ▀▀█ "
  671.             AnsiPos INT024 - 1, INT025 + 1
  672.             Print " @X0F  █▀▀ "
  673.             AnsiPos INT024 - 1, INT025 + 2
  674.             Print " @X0F  ▀▀▀ "
  675.         Case 1
  676.             AnsiPos INT024 - 1, INT025
  677.             Print " @X0F    █ "
  678.             AnsiPos INT024 - 1, INT025 + 1
  679.             Print " @X0F    █ "
  680.             AnsiPos INT024 - 1, INT025 + 2
  681.             Print " @X0F    ▀ "
  682.         Case 0
  683.             AnsiPos INT024 - 1, INT025
  684.             Print "       "
  685.             AnsiPos INT024 - 1, INT025 + 1
  686.             Print "       "
  687.             AnsiPos INT024 - 1, INT025 + 2
  688.             Print "       "
  689.     End Select
  690.  
  691.     EndProc
  692.  
  693.  
  694. ;------------------------------------------------------------------------------
  695.  
  696.     Procedure PROC003(Int INT026, Int INT027, Int INT028)
  697.  
  698.     Select Case (INT026)
  699.         Case 1, 40, 51, 55, 66
  700.             AnsiPos INT027, INT028
  701.             Print "@X0F  @X02▄██▄  "
  702.             AnsiPos INT027, INT028 + 1
  703.             Print "@X02  ▀@X0F██@X02▀  "
  704.             AnsiPos INT027, INT028 + 2
  705.             Print "@X02  @X0F█@X01██@X0F█  "
  706.             AnsiPos INT027, INT028 + 3
  707.             Print "@X0F  ▀@X01██@X0F▀  "
  708.             AnsiPos INT027, INT028 + 4
  709.             Print "@X0F  ▄@X1F▄▄@X0F▄  "
  710.         Case 2, 39, 52, 54
  711.             AnsiPos INT027, INT028 + 2
  712.             Print "@X02 @X0F▄▀@X01██@X0F▀▄ "
  713.             AnsiPos INT027, INT028 + 3
  714.             Print "@X0F ▀ @X01██ @X0F▀ "
  715.         Case 3, 38, 53
  716.             AnsiPos INT027, INT028 + 2
  717.             Print "@X0F▄▀▀@X01██@X0F▀▀▄"
  718.             AnsiPos INT027, INT028 + 3
  719.             Print "@X0F   @X01██   "
  720.         Case 4, 37
  721.             AnsiPos INT027, INT028 + 1
  722.             Print "@X02  ▀@X0F██@X02▀  "
  723.             AnsiPos INT027, INT028 + 2
  724.             Print "@X0F▀▀▀@X01██@X0F▀▀▀"
  725.         Case 5, 36
  726.             AnsiPos INT027, INT028 + 1
  727.             Print "@X0F▀▄@X02▀@X0F██@X02▀@X0F▄▀"
  728.             AnsiPos INT027, INT028 + 2
  729.             Print "@X0F  ▀@X01██@X0F▀  "
  730.         Case 6, 35
  731.             AnsiPos INT027, INT028
  732.             Print "@X0F  @X02▄██▄  "
  733.             AnsiPos INT027, INT028 + 1
  734.             Print "@X02 @X0F█@X02▀@X0F██@X02▀@X0F█ "
  735.             AnsiPos INT027, INT028 + 2
  736.             Print "@X0F  ▀@X01██@X0F▀  "
  737.         Case 7, 9, 25
  738.             AnsiPos INT027, INT028
  739.             Print "        "
  740.             AnsiPos INT027, INT028 + 1
  741.             Print "@X0F ▄@X2F▀▄▄▀@X0F▄ "
  742.             AnsiPos INT027, INT028 + 2
  743.             Print "@X0F ▀@X2F▄@X1F▀▀@X2F▄@X0F▀ "
  744.             AnsiPos INT027, INT028 + 3
  745.             Print "@X0F   @X01██   "
  746.         Case 8, 11, 13, 15
  747.             AnsiPos INT027, INT028 + 1
  748.             Print "@X0F▄@X02▄@X2F▄▄▀@X0F▄  "
  749.             AnsiPos INT027, INT028 + 2
  750.             Print "@X0F▀@X2F▄@X1F▀▀▀@X0F█  "
  751.             AnsiPos INT027, INT028 + 3
  752.             Print "@X0F  @X01▀██   "
  753.         Case 10, 12, 14
  754.             AnsiPos INT027, INT028 + 1
  755.             Print "@X0F  ▄@X2F▀▄▄@X02▄@X0F▄"
  756.             AnsiPos INT027, INT028 + 2
  757.             Print "@X0F  █@X1F▀▀▀@X2F▄@X0F▀"
  758.             AnsiPos INT027, INT028 + 3
  759.             Print "@X0F   @X01██▀  "
  760.         Case 50
  761.             AnsiPos INT027, INT028 - 3
  762.             Print "@X0F   ▀▀█  "
  763.             AnsiPos INT027, INT028 - 2
  764.             Print "@X0F    ▀   "
  765.             AnsiPos INT027, INT028 - 1
  766.             Print "@X0F    ▀   "
  767.         Case 56
  768.             AnsiPos INT027, INT028 - 3
  769.             Print "        "
  770.             AnsiPos INT027, INT028 - 2
  771.             Print "        "
  772.             AnsiPos INT027, INT028 - 1
  773.             Print "        "
  774.         Case 67
  775.             AnsiPos INT027, INT028 - 1
  776.             Print "@X02  ▄██▄ "
  777.             AnsiPos INT027, INT028
  778.             Print "@X02  ▀@X0F██@X02▀ "
  779.             AnsiPos INT027, INT028 + 1
  780.             Print "@X02   @X0C│|  "
  781.             AnsiPos INT027, INT028 + 2
  782.             Print "@X0C  @X0F█@X01██@X0F█ "
  783.             AnsiPos INT027, INT028 + 3
  784.             Print "@X0F  ▀@X01██@X0F▀ "
  785.             AnsiPos INT027, INT028 + 4
  786.             Print "@X0F  ▄@X1F▄▄@X0F▄@X07 "
  787.         Case 68
  788.             AnsiPos INT027, INT028 - 3
  789.             Print "  @X02▄██▄ "
  790.             AnsiPos INT027, INT028 - 2
  791.             Print "  @X02▀@X0F██@X02▀ "
  792.             AnsiPos INT027, INT028 - 1
  793.             Print "  @X02 @X0C│|  "
  794.             AnsiPos INT027, INT028
  795.             Print "  @X0C ·.  "
  796.             AnsiPos INT027, INT028 + 1
  797.             Print "  @X0C |│  "
  798.         Case 69
  799.             AnsiPos INT027, INT028 - 8
  800.             Print "  @X02▄██▄ "
  801.             AnsiPos INT027, INT028 - 7
  802.             Print "  @X02▀@X0F██@X02▀ "
  803.             AnsiPos INT027, INT028 - 6
  804.             Print "  @X02 @X0C││  "
  805.             AnsiPos INT027, INT028 - 5
  806.             Print "  @X0C  |  "
  807.             AnsiPos INT027, INT028 - 4
  808.             Print "  @X0C  ·  "
  809.             AnsiPos INT027, INT028 - 3
  810.             Print "       "
  811.             AnsiPos INT027, INT028 - 2
  812.             Print "       "
  813.             AnsiPos INT027, INT028 - 1
  814.             Print "  @X0C  ·  "
  815.             AnsiPos INT027, INT028
  816.             Print "       "
  817.             AnsiPos INT027, INT028 + 1
  818.             Print "  @X0C_¬⌐_ "
  819.         Case 70
  820.             AnsiPos INT027, INT028 - 17
  821.             Print "  @X02▄██▄ "
  822.             AnsiPos INT027, INT028 - 16
  823.             Print "  @X02▀@X0F██@X02▀ "
  824.             AnsiPos INT027, INT028 - 15
  825.             Print "  @X02 @X0C│|  "
  826.             AnsiPos INT027, INT028 - 14
  827.             Print "  @X0C ││  "
  828.             AnsiPos INT027, INT028 - 13
  829.             Print "  @X0C |│  "
  830.             AnsiPos INT027, INT028 - 12
  831.             Print "  @X0C ·|  "
  832.             AnsiPos INT027, INT028 - 11
  833.             Print "  @X0C ·.  "
  834.             AnsiPos INT027, INT028 - 9
  835.             Print "  @X0C ·.  "
  836.             AnsiPos INT027, INT028 - 8
  837.             Print "       "
  838.             AnsiPos INT027, INT028 - 7
  839.             Print "  @X0C  .  "
  840.             AnsiPos INT027, INT028 - 6
  841.             Print "       "
  842.             AnsiPos INT027, INT028 - 5
  843.             Print "       "
  844.             AnsiPos INT027, INT028 - 4
  845.             Print "       "
  846.             AnsiPos INT027, INT028 - 3
  847.             Print "  @X0C  ·  "
  848.             AnsiPos INT027, INT028 - 1
  849.             Print "       "
  850.             AnsiPos INT027, INT028 + 1
  851.             Print "  @X0C____ "
  852.             AnsiPos INT027, INT028 + 2
  853.             Print "  @X0F█@X1C▀|@X0F█ "
  854.         Case 71
  855.             AnsiPos INT027, INT028 - 17
  856.             Print "       "
  857.             AnsiPos INT027, INT028 - 16
  858.             Print "       "
  859.             AnsiPos INT027, INT028 - 15
  860.             Print "       "
  861.             AnsiPos INT027, INT028 - 14
  862.             Print "       "
  863.             AnsiPos INT027, INT028 - 13
  864.             Print "       "
  865.             AnsiPos INT027, INT028 - 12
  866.             Print "       "
  867.             AnsiPos INT027, INT028 - 11
  868.             Print "       "
  869.             AnsiPos INT027, INT028 - 9
  870.             Print "       "
  871.             AnsiPos INT027, INT028 - 7
  872.             Print "       "
  873.             AnsiPos INT027, INT028 - 3
  874.             Print "       "
  875.         Case 81
  876.             AnsiPos INT027, INT028 + 1
  877.             Print "  @X0C  ____"
  878.             AnsiPos INT027, INT028 + 2
  879.             Print "  @X0C  @X0F█@X1C▀|@X0F█"
  880.             AnsiPos INT027, INT028 + 3
  881.             Print "  @X0F ▀@X01██@X0F▀ "
  882.             AnsiPos INT027, INT028 + 4
  883.             Print "  @X0F▀@X1F▄▄@X0F▄  "
  884.         Case 83
  885.             AnsiPos INT027, INT028 + 1
  886.             Print "   @X07        "
  887.             AnsiPos INT027, INT028 + 2
  888.             Print "   @X0F   ▄▄@X0C°_ "
  889.             AnsiPos INT027, INT028 + 3
  890.             Print "   @X0F▄@X01▄@X1F▀@X01█@X1F▄@X0F▀@X0C|`"
  891.             AnsiPos INT027, INT028 + 4
  892.             Print "   @X0C @X0F▀@X1F▄@X07     "
  893.         Case 84
  894.             AnsiPos INT027, INT028 + 2
  895.             Print "             "
  896.             AnsiPos INT027, INT028 + 3
  897.             Print "    @X0F▄        "
  898.             AnsiPos INT027, INT028 + 4
  899.             Print "    @X0F█@X01██@X1F▄▄@X0C,___@X07"
  900.         Case 95
  901.             AnsiPos INT027 + INT011, INT028 - 17
  902.             Print "@X0C ·  "
  903.             AnsiPos INT027 + INT011, INT028 - 16
  904.             Print "@X0C .· "
  905.             AnsiPos INT027 + INT011, INT028 - 15
  906.             Print "@X0C |│ "
  907.             AnsiPos INT027 + INT011, INT028 - 14
  908.             Print "@X0C │| "
  909.             AnsiPos INT027 + INT011, INT028 - 13
  910.             Print "@X02▄@X0F██@X02▄"
  911.             AnsiPos INT027 + INT011, INT028 - 12
  912.             Print "@X02▀██▀"
  913.         Case 96
  914.             AnsiPos INT027 + INT011, INT028 - 17
  915.             Print "    "
  916.             AnsiPos INT027 + INT011, INT028 - 16
  917.             Print "    "
  918.             AnsiPos INT027 + INT011, INT028 - 15
  919.             Print "    "
  920.             AnsiPos INT027 + INT011, INT028 - 14
  921.             Print "    "
  922.             AnsiPos INT027 + INT011, INT028 - 13
  923.             Print "    "
  924.             AnsiPos INT027 + INT011, INT028 - 12
  925.             Print "    "
  926.             AnsiPos INT027 + INT011, INT028 - 11
  927.             Print "@X0C ·  "
  928.             AnsiPos INT027 + INT011, INT028 - 10
  929.             Print "@X0C .· "
  930.             AnsiPos INT027 + INT011, INT028 - 9
  931.             Print "@X0C |│ "
  932.             AnsiPos INT027 + INT011, INT028 - 8
  933.             Print "@X0C │| "
  934.             AnsiPos INT027 + INT011, INT028 - 7
  935.             Print "@X02▄@X0F██@X02▄"
  936.             AnsiPos INT027 + INT011, INT028 - 6
  937.             Print "@X02▀██▀"
  938.         Case 97
  939.             AnsiPos INT027 + INT011, INT028 - 11
  940.             Print "    "
  941.             AnsiPos INT027 + INT011, INT028 - 10
  942.             Print "    "
  943.             AnsiPos INT027 + INT011, INT028 - 9
  944.             Print "    "
  945.             AnsiPos INT027 + INT011, INT028 - 8
  946.             Print "    "
  947.             AnsiPos INT027 + INT011, INT028 - 7
  948.             Print "    "
  949.             AnsiPos INT027 + INT011, INT028 - 6
  950.             Print "    "
  951.             AnsiPos INT027 + INT011, INT028 - 5
  952.             Print "@X0C ·  "
  953.             AnsiPos INT027 + INT011, INT028 - 4
  954.             Print "@X0C .· "
  955.             AnsiPos INT027 + INT011, INT028 - 3
  956.             Print "@X0C |│ "
  957.             AnsiPos INT027 + INT011, INT028 - 2
  958.             Print "@X0C │| "
  959.             AnsiPos INT027 + INT011, INT028 - 1
  960.             Print "@X02▄@X0F██@X02▄"
  961.             AnsiPos INT027 + INT011, INT028
  962.             Print "@X02▀██▀"
  963.         Case 98
  964.             AnsiPos INT027 + INT011, INT028 - 5
  965.             Print "    "
  966.             AnsiPos INT027 + INT011, INT028 - 4
  967.             Print "    "
  968.             AnsiPos INT027 + INT011, INT028 - 3
  969.             Print "    "
  970.             AnsiPos INT027 + INT011, INT028 - 2
  971.             Print "    "
  972.             AnsiPos INT027 + INT011, INT028 - 1
  973.             Print "@X0C ·  "
  974.             AnsiPos INT027 + INT011, INT028
  975.             Print "@X0C .· "
  976.             AnsiPos INT027 + INT011, INT028 + 1
  977.             Print "@X0C |│ "
  978.             AnsiPos INT027 + INT011, INT028 + 2
  979.             Print "@X0C │| "
  980.             AnsiPos INT027 + 17, INT028 + 3
  981.             Print "@X0C°` @X02▄@X0F██@X02▄ @X0C,"
  982.             AnsiPos INT027 + 17, INT028 + 4
  983.             Print "@X0C__\@X02▀██▀@X0C/__"
  984.         Case 99
  985.             AnsiPos INT027 + INT011, INT028 - 1
  986.             Print "    "
  987.             AnsiPos INT027 + INT011, INT028
  988.             Print "    "
  989.             AnsiPos INT027 + INT011, INT028 + 1
  990.             Print "    "
  991.             AnsiPos INT027 + INT011, INT028 + 2
  992.             Print "    "
  993.             AnsiPos INT027 + 17, INT028 + 3
  994.             Print "          "
  995.             AnsiPos INT027 + 21, INT028 + 2
  996.             Print "@X02▄@X0F██@X02▄"
  997.             AnsiPos INT027 + 21, INT028 + 3
  998.             Print "@X02▀██▀@X07"
  999.             AnsiPos INT027 + 17, INT028 + 4
  1000.             Print "@X0C__________"
  1001.             AnsiPos INT027 + 22, INT028 + 1
  1002.             Print "@X0C_,"
  1003.         Case 100
  1004.             AnsiPos INT027 + 21, INT028 + 2
  1005.             Print "    "
  1006.             AnsiPos INT027 + 21, INT028 + 3
  1007.             Print "    "
  1008.             AnsiPos INT027 + 22, INT028 + 1
  1009.             Print "  "
  1010.             AnsiPos INT027 + 22, INT028 + 1
  1011.             Print "@X02▄█@X2F▄@X0F▄@X0C,"
  1012.             AnsiPos INT027 + 22, INT028 + 2
  1013.             Print "@X02▀█@X2F▀@X0F▀@X0C`"
  1014.         Case 101
  1015.             AnsiPos INT027 + 22, INT028 + 1
  1016.             Print "     "
  1017.             AnsiPos INT027 + 22, INT028 + 2
  1018.             Print "     "
  1019.             AnsiPos INT027 + 23, INT028 + 2
  1020.             Print "@X02▄█@X2F▄@X0F▄@X0C,"
  1021.             AnsiPos INT027 + 23, INT028 + 3
  1022.             Print "@X02▀█@X2F▀@X0F▀@X0C`"
  1023.         Case 102
  1024.             AnsiPos INT027 + 23, INT028 + 2
  1025.             Print "     "
  1026.             AnsiPos INT027 + 23, INT028 + 3
  1027.             Print "     "
  1028.             AnsiPos INT027 + 24, INT028 + 3
  1029.             Print "@X02▄█@X2F▄@X0F▄@X0C,"
  1030.             AnsiPos INT027 + 23, INT028 + 4
  1031.             Print "@X0C_@X02▀█@X2F▀@X0F▀@X0C`,__"
  1032.         Case 104
  1033.             BOOLEAN001 = 1
  1034.     End Select
  1035.  
  1036.     EndProc
  1037.  
  1038.  
  1039. ;------------------------------------------------------------------------------
  1040.  
  1041.     Function FUNCTION001(String STRING008, Int INT029, Int INT030, Int INT031, Int INT032, Int INT033, Int INT034) Integer
  1042.  
  1043.     Int      INT035
  1044.     Integer  INTEGER006
  1045.  
  1046.     INT035 = INT033
  1047.     INT032 = INT032 * 2
  1048.     INT013 = INT030
  1049.     INT014 = INT031
  1050.     INT012 = INT029
  1051.     Color 15
  1052.     Select Case (STRING008)
  1053.         Case "FAILED"
  1054.             PROC011()
  1055.         Case "SLEEPING"
  1056.             PROC012()
  1057.     End Select
  1058.     PROC006(INT035)
  1059.     While (1) Do
  1060.         STRING001 = Inkey()
  1061.         If (STRING001 <> "") Then
  1062.             If (((STRING001 == "DOWN") || (STRING001 == "2")) || (STRING001 == "5")) Then
  1063.                 PROC007(INT035)
  1064.                 INT035 = INT035 + 2
  1065.                 If (INT035 == INT032 + 1) INT035 = 1
  1066.                 If ((INT034 == 1) && (STRING008 == "FAILED")) PROC009(INT035)
  1067.                 PROC006(INT035)
  1068.                 Continue
  1069.             Endif
  1070.             If ((STRING001 == "UP") || (STRING001 == "8")) Then
  1071.                 PROC007(INT035)
  1072.                 INT035 = INT035 - 2
  1073.                 If (INT035 < 1) INT035 = INT032 - 1
  1074.                 If ((INT034 == 1) && (STRING008 == "FAILED")) PROC009(INT035)
  1075.                 PROC006(INT035)
  1076.                 Continue
  1077.             Endif
  1078.             If (STRING001 == Chr(13)) Then
  1079.                 FUNCTION001 = (INT035 + 1) / 2
  1080.                 Break
  1081.                 Continue
  1082.             Endif
  1083.             If (STRING001 == Chr(27)) Then
  1084.                 FUNCTION001 = 0
  1085.                 Break
  1086.             Endif
  1087.         Endif
  1088.     EndWhile
  1089.  
  1090.     EndFunc
  1091.  
  1092.  
  1093. ;------------------------------------------------------------------------------
  1094.  
  1095.     Procedure PROC006(Integer INTEGER006)
  1096.  
  1097.     AnsiPos INT013, INT012 + INTEGER006 - 1
  1098.     STRING002 = ScrText(INT013, INT012 + INTEGER006 - 1, INT014 - INT013, 1)
  1099.     Print "@X1F", Upper(ScrText(INT013, INT012 + INTEGER006 - 1, INT014 - INT013, 0))
  1100.     PROC008()
  1101.  
  1102.     EndProc
  1103.  
  1104.  
  1105. ;------------------------------------------------------------------------------
  1106.  
  1107.     Procedure PROC007(Integer INTEGER007)
  1108.  
  1109.     AnsiPos INT013, INT012 + INTEGER007 - 1
  1110.     Print "@X0F", STRING002
  1111.     PROC008()
  1112.  
  1113.     EndProc
  1114.  
  1115.  
  1116. ;------------------------------------------------------------------------------
  1117.  
  1118.     Procedure PROC008()
  1119.  
  1120.     AnsiPos 1, 1
  1121.     Color 0
  1122.     Print " "
  1123.     Backup 1
  1124.  
  1125.     EndProc
  1126.  
  1127.  
  1128. ;------------------------------------------------------------------------------
  1129.  
  1130.     Procedure PROC009(Int INT036)
  1131.  
  1132.     Select Case (INT036)
  1133.         Case 1
  1134.             AnsiPos 51, 10
  1135.             Print "@X0F▀▄"
  1136.             AnsiPos 51, 11
  1137.             Print "  ▀"
  1138.             AnsiPos 51, 12
  1139.             Print " "
  1140.         Case 3
  1141.             AnsiPos 51, 10
  1142.             Print "@X0F  "
  1143.             AnsiPos 51, 11
  1144.             Print "▀▀▀"
  1145.             AnsiPos 51, 12
  1146.             Print " "
  1147.         Case 5
  1148.             AnsiPos 51, 10
  1149.             Print "@X0F  "
  1150.             AnsiPos 51, 11
  1151.             Print " ▄▀"
  1152.             AnsiPos 51, 12
  1153.             Print "▀"
  1154.     End Select
  1155.  
  1156.     EndProc
  1157.  
  1158.  
  1159. ;------------------------------------------------------------------------------
  1160.  
  1161.     Procedure PROC010(String STRING009)
  1162.  
  1163.     If ((BOOLEAN005 == 0) && BOOLEAN004) Then
  1164.         FCreate 1, PPEPath() + "MSG." + String(PcbNode()), 1, 0
  1165.         FPutLn 1, "@X0F@X02▄██▄  @X0F Hi! This is the Lemming Reporter, please note that"
  1166.         FPutLn 1, "@X02▀@X0F██@X02▀ @X0F< " + Mixed(Trim(U_Name(), " ")) + " paged you on " + String(Date()) + " at " + String(Time()) + "."
  1167.         FPutLn 1, "@X02@X0F█@X01██@X0F█   @X0FHis reason for paging was : """ + STRING007 + """"
  1168.         FPutLn 1, "@X0F▀@X01██@X0F▀   @X0FPlease... i've been nice... don't kill me!!!"
  1169.         FPutLn 1, "@X0F▄@X1F▄▄@X0F▄"
  1170.         FPutLn 1, ""
  1171.         FPutLn 1, "@X0FPress (@X8CK@X0F) NOW! to Kill this boring lemming... :>"
  1172.         FClose 1
  1173.         Message 0, "SYSOP", "LEMMING REPORTER", "HI MASTER!", "R", 0, 0, 0, PPEPath() + "MSG." + String(PcbNode())
  1174.         Delete PPEPath() + "MSG." + String(PcbNode())
  1175.     Endif
  1176.     Cls
  1177.     KbdStuff STRING009
  1178.     End
  1179.  
  1180.     EndProc
  1181.  
  1182.  
  1183. ;------------------------------------------------------------------------------
  1184.  
  1185.     Procedure PROC011()
  1186.  
  1187.     AnsiPos 21, 6
  1188.     Print "@X0F█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█"
  1189.     AnsiPos 21, 7
  1190.     Print "@X0F█           Page Failed! =(            █"
  1191.     AnsiPos 21, 8
  1192.     Print "@X0F█                                      █"
  1193.     AnsiPos 21, 9
  1194.     Print "@X0F█  Ok, i'll try later...        @X02▄██▄   @X0F█"
  1195.     AnsiPos 21, 10
  1196.     Print "@X0F█                             ▀▄@X02▀@X0F██@X02▀   @X0F█"
  1197.     AnsiPos 21, 11
  1198.     Print "@X0F█  Too bad, i'll let a messy    ▀@X01██@X0F█   █"
  1199.     AnsiPos 21, 12
  1200.     Print "@X0F█                                @X01██@X0F▀   █"
  1201.     AnsiPos 21, 13
  1202.     Print "@X0F█  Hey! This is an emergency!   ▄@X1F▄▄@X0F▄   █"
  1203.     AnsiPos 21, 14
  1204.     Print "@X0F█                                      █"
  1205.     AnsiPos 21, 15
  1206.     Print "@X0F█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█"
  1207.  
  1208.     EndProc
  1209.  
  1210.  
  1211. ;------------------------------------------------------------------------------
  1212.  
  1213.     Procedure PROC012()
  1214.  
  1215.     AnsiPos 14, 7
  1216.     Print "@X0F█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█"
  1217.     AnsiPos 14, 8
  1218.     Print "@X0F█     Sysop is sleeping!               @X8F______    @X0F█"
  1219.     AnsiPos 14, 9
  1220.     Print "@X0F█                                     @X8F( Zzzz )   @X0F█"
  1221.     AnsiPos 14, 10
  1222.     Print "@X0F█  Good night sweet sysop...           @X8F`~~~\|    @X0F█"
  1223.     AnsiPos 14, 11
  1224.     Print "@X0F█                                    ▄     ▄@X02▄▄@X06█  @X0F█"
  1225.     AnsiPos 14, 12
  1226.     Print "@X0F█  Hopa! I'll leave a messy!    @X06█    @X0F█@X01██@X1F▄▄@X2F▀▀▀@X02█@X06█  @X0F█"
  1227.     AnsiPos 14, 13
  1228.     Print "@X0F█                               @X06█@X76▄▄▄▄▄▄▄▄▄▄▄▄▄@X06█  @X0F█"
  1229.     AnsiPos 14, 14
  1230.     Print "@X0F█  Hey! This is an emergency!   @X06▀             ▀  @X0F█"
  1231.     AnsiPos 14, 15
  1232.     Print "@X0F█                                                █"
  1233.     AnsiPos 14, 16
  1234.     Print "@X0F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  1235.  
  1236.     EndProc
  1237.  
  1238.  
  1239. ;------------------------------------------------------------------------------
  1240.  
  1241.     Procedure PROC004(Int INT037, Int INT038, Int INT039)
  1242.  
  1243.     If (INT037 == 0) Then
  1244.         AnsiPos INT038, INT039
  1245.         Print "@X0F@X02▄██▄"
  1246.         AnsiPos INT038, INT039 + 1
  1247.         Print "@X02▀@X0F██@X02▀"
  1248.         AnsiPos INT038, INT039 + 2
  1249.         Print "@X02@X0F█@X01██@X0F█"
  1250.         AnsiPos INT038, INT039 + 3
  1251.         Print "@X0F▀@X01██@X0F▀"
  1252.         AnsiPos INT038 - 1, INT039 + 4
  1253.         Print "@X0F ▄@X1F▄▄@X0F▄"
  1254.     ElseIf (((((((((((INT037 == 10) || (INT037 == 11)) || (INT037 == 12)) || (INT037 == 13)) || (INT037 == 14)) || (INT037 == 15)) || (INT037 == 16)) || (INT037 == 17)) || (INT037 == 18)) || (INT037 == 19)) || (INT037 == 20)) Then
  1255.         AnsiPos INT038, INT039 + INT037 - 10
  1256.         Print "@X0F    "
  1257.         AnsiPos INT038, INT039 + INT037 - 10 + 1
  1258.         Print "@X0F@X02▄██▄"
  1259.         AnsiPos INT038, INT039 + INT037 - 10 + 2
  1260.         Print "@X02▀@X0F██@X02▀"
  1261.         AnsiPos INT038, INT039 + INT037 - 10 + 3
  1262.         Print "@X02@X0F█@X01██@X0F█"
  1263.         AnsiPos INT038, INT039 + INT037 - 10 + 4
  1264.         Print "@X0F▀@X01██@X0F▀"
  1265.         AnsiPos INT038, INT039 + INT037 - 10 + 5
  1266.         Print "@X0F▄@X1F▄▄@X0F▄"
  1267.     Else
  1268.         Select Case (INT037)
  1269.             Case 21
  1270.                 AnsiPos INT038 - 1, INT039 + 11
  1271.                 Print "@X0F     "
  1272.                 AnsiPos INT038 - 1, INT039 + 12
  1273.                 Print "@X02 ▄██▄"
  1274.                 AnsiPos INT038 - 1, INT039 + 13
  1275.                 Print "@X02 ▀@X0F██@X02▀"
  1276.                 AnsiPos INT038 - 1, INT039 + 14
  1277.                 Print "@X0F █@X01█▌█@X0F█"
  1278.                 AnsiPos INT038 - 1, INT039 + 15
  1279.                 Print "@X0F ▀@X01█@X0C▐@X01█@X0F▀"
  1280.                 AnsiPos INT038 - 1, INT039 + 16
  1281.                 Print "@X0F @X0F▄@X1F▄@X0E▌@X1F▄@X0F▄"
  1282.                 AnsiPos INT038 - 1, INT039 + 17
  1283.                 Print "@X0E  @X0C█@X0E█@X0C"
  1284.                 AnsiPos INT038 - 1, INT039 + 18
  1285.                 Print "@X0E@X0C_▐@X0E██@X0C█_"
  1286.             Case 21
  1287.                 AnsiPos INT038 - 2, INT039 + 12
  1288.                 Print "@X0F      "
  1289.                 AnsiPos INT038 - 2, INT039 + 13
  1290.                 Print "@X0E  @X02▄██▄"
  1291.                 AnsiPos INT038 - 2, INT039 + 14
  1292.                 Print "@X0C `@X02▀@X0F██@X02▀"
  1293.                 AnsiPos INT038 - 2, INT039 + 15
  1294.                 Print "@X0F █@X01█@X0C▌·▐@X01█@X0F█@X0C/,"
  1295.                 AnsiPos INT038 - 2, INT039 + 16
  1296.                 Print "@X0C\@X0F▀@X01█@X0C▌@X0E▌@X0C■@X01█@X0F▀"
  1297.                 AnsiPos INT038 - 2, INT039 + 17
  1298.                 Print "@X0F ▄@X1F▄@X0C█@X0E█@X0C▌@X1F▄@X0F▄"
  1299.                 AnsiPos INT038 - 2, INT039 + 18
  1300.                 Print "@X0E▌@X0C_▐@X0E██@X0C█_,"
  1301.             Case 22
  1302.                 AnsiPos INT038 - 2, INT039 + 11
  1303.                 Print "@X0C    ·"
  1304.                 AnsiPos INT038 - 2, INT039 + 12
  1305.                 Print "@X0C  ` ·, ·"
  1306.                 AnsiPos INT038 - 2, INT039 + 13
  1307.                 Print "@X0C · \v/~"
  1308.                 AnsiPos INT038 - 2, INT039 + 14
  1309.                 Print "@X02  ▄█@X0C▓@X02█▄"
  1310.                 AnsiPos INT038 - 2, INT039 + 15
  1311.                 Print "@X0C `@X02▀@X0F█@X0C░@X0F█@X02▀"
  1312.                 AnsiPos INT038 - 2, INT039 + 16
  1313.                 Print "@X0F█@X01█ @X0C▌@X0E▌@X0C■ @X01█@X0F█"
  1314.                 AnsiPos INT038 - 2, INT039 + 17
  1315.                 Print "@X0F▀@X01█ @X0C█@X0E█@X0C▌@X01▐@X1F▐"
  1316.                 AnsiPos INT038 - 2, INT039 + 18
  1317.                 Print "@X1E▌@X1F▄@X0C▐@X0E██@X0C█@X1F▄@X0F▄"
  1318.             Case 23
  1319.                 AnsiPos INT038 + 2, INT039 + 11
  1320.                 Print " "
  1321.                 AnsiPos INT038, INT039 + 12
  1322.                 Print "      "
  1323.                 AnsiPos INT038 - 3, INT039 + 13
  1324.                 Print "@X0C`     ,        ·"
  1325.                 AnsiPos INT038 - 4, INT039 + 14
  1326.                 Print "@X0C`  ·     ·  `"
  1327.                 AnsiPos INT038 - 4, INT039 + 15
  1328.                 Print "@X0C   `@X02▄█@X0C▓@X02█▄"
  1329.                 AnsiPos INT038 - 4, INT039 + 16
  1330.                 Print "@X02 @X0C▌@X0F█@X01█@X02▀@X0F█@X0C█@X0F█@X02▀@X01█@X0F█@X0E▌  @X0C`"
  1331.                 AnsiPos INT038 - 4, INT039 + 17
  1332.                 Print "@X0E▐@X0C█@X0F▀@X01█@X0C▌█@X0E█@X0C▌@X01▐@X1F▐@X0C█"
  1333.                 AnsiPos INT038 - 4, INT039 + 18
  1334.                 Print "@X0E██@X1E▌@X1F▄@X0C██@X0E█@X0C█@X1F▄@X0F▄"
  1335.             Case 24
  1336.                 AnsiPos INT038 - 3, INT039 + 13
  1337.                 Print "                "
  1338.                 AnsiPos INT038 - 4, INT039 + 14
  1339.                 Print "             "
  1340.                 AnsiPos INT038 - 1, INT039 + 15
  1341.                 Print "      "
  1342.                 AnsiPos INT038 - 3, INT039 + 16
  1343.                 Print "@X0C▌@X0F█@X01█@X02▄█@X0C█@X02█▄@X01█@X0F█@X0C▌    ▌    ▌"
  1344.                 AnsiPos INT038 - 3, INT039 + 17
  1345.                 Print "@X0C█@X0F▀@X01█@X2C▄@X0F█@X0E█@X0F█@X2C▄@X1F▐@X0C█@X0E█   @X0C▐"
  1346.                 AnsiPos INT038 - 3, INT039 + 18
  1347.                 Print "█@X1E▌@X1F▄@X0C██@X0E█@X0C█@X1F▄@X0F▄"
  1348.             Case 25
  1349.                 BOOLEAN001 = 1
  1350.             Endif
  1351.     End Select
  1352.  
  1353.     EndProc
  1354.  
  1355.  
  1356. ;------------------------------------------------------------------------------
  1357.  
  1358.     Procedure PROC013()
  1359.  
  1360.     Select Case (INT015)
  1361.         Case 1
  1362.             DoIntr 16, 4112, 0, 16191, 16128, 0, 0, 0, 0, 0
  1363.         Case 2
  1364.             DoIntr 16, 2816, 15, 0, 0, 0, 0, 0, 0, 0
  1365.     End Select
  1366.  
  1367.     EndProc
  1368.  
  1369.  
  1370. ;------------------------------------------------------------------------------
  1371.  
  1372.     Procedure PROC014()
  1373.  
  1374.     Select Case (INT015)
  1375.         Case 1
  1376.             DoIntr 16, 4112, 0, 0, 0, 0, 0, 0, 0, 0
  1377.         Case 2
  1378.             DoIntr 16, 2816, 0, 0, 0, 0, 0, 0, 0, 0
  1379.     End Select
  1380.  
  1381.     EndProc
  1382.  
  1383.  
  1384. ;------------------------------------------------------------------------------
  1385.  
  1386.     Procedure PROC015()
  1387.  
  1388.     Select Case (INT015)
  1389.         Case 1
  1390.             DoIntr 16, 4112, 0, 0, 16128, 0, 0, 0, 0, 0
  1391.         Case 2
  1392.             DoIntr 16, 2816, 4, 0, 0, 0, 0, 0, 0, 0
  1393.     End Select
  1394.  
  1395.     EndProc
  1396.  
  1397.  
  1398. ;------------------------------------------------------------------------------
  1399.  
  1400.     Function FUNCTION002() Boolean
  1401.  
  1402.     String   TSTRING010(2)
  1403.     Integer  INTEGER008
  1404.  
  1405.     If (FUNCTION004("PAGER.VIP")) Then
  1406.         FUNCTION002 = 1
  1407.     Else
  1408.         TSTRING010(0) = ScrText(26, 17, 28, 1)
  1409.         TSTRING010(1) = ScrText(26, 18, 28, 1)
  1410.         TSTRING010(2) = ScrText(26, 19, 28, 1)
  1411.         AnsiPos 26, 17
  1412.         Print "@X0F█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█"
  1413.         AnsiPos 26, 18
  1414.         Print "@X0F█ PWD:                     █"
  1415.         AnsiPos 26, 19
  1416.         Print "@X0F█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█"
  1417.         If (Upper(FUNCTION003(33, 18, 19, "", Mask_Ascii() + STRING005, 0, 1)) == Upper(STRING005)) Then
  1418.             FUNCTION002 = 1
  1419.         Else
  1420.             AnsiPos 26, 18
  1421.             If (INTEGER001 == 1) Then
  1422.                 Print "@X0F█ PWD: @X08*@X04*@X0C*ASK TO SYSOP!*@X04*@X08*@X0F █"
  1423.             Else
  1424.                 Print "@X0F█ PWD: @X08*@X04*@X0C*BAD PASSWORD!*@X04*@X08*@X0F █"
  1425.             Endif
  1426.             Delay 8
  1427.             FUNCTION002 = 0
  1428.         Endif
  1429.         AnsiPos 26, 17
  1430.         Print TSTRING010(0)
  1431.         AnsiPos 26, 18
  1432.         Print TSTRING010(1)
  1433.         AnsiPos 26, 19
  1434.         Print TSTRING010(2)
  1435.     Endif
  1436.  
  1437.     EndFunc
  1438.  
  1439.  
  1440. ;------------------------------------------------------------------------------
  1441.  
  1442.     Function FUNCTION003(Integer INTEGER008, Integer INTEGER009, Integer INTEGER010, String STRING011, String STRING012, Boolean BOOLEAN007, Boolean BOOLEAN008) String
  1443.  
  1444.     Integer  INTEGER011
  1445.     String   STRING014
  1446.     String   STRING015
  1447.  
  1448.     INTEGER001 = 0
  1449.     AnsiPos INTEGER008, INTEGER009
  1450.     Print "@X0B" + STRING011
  1451.     INTEGER011 = Len(STRING011)
  1452.     STRING014 = STRING011
  1453.     While (1) Do
  1454.         STRING015 = Inkey()
  1455.         If (BOOLEAN007) STRING015 = Upper(STRING015)
  1456.         If (STRING015 == Chr(27)) Then
  1457.             FUNCTION003 = STRING014
  1458.             INTEGER001 = 1
  1459.             Break
  1460.             Continue
  1461.         Endif
  1462.         If (STRING015 == Chr(13)) Then
  1463.             FUNCTION003 = STRING014
  1464.             Break
  1465.             Continue
  1466.         Endif
  1467.         If (STRING015 == Chr(8)) Then
  1468.             If (STRING014 <> "") Then
  1469.                 STRING014 = Left(STRING014, Len(STRING014) - 1)
  1470.                 Backup 1
  1471.                 Print "@X0F "
  1472.                 Backup 1
  1473.             Endif
  1474.             Continue
  1475.         Endif
  1476.         If (((Len(STRING014) < INTEGER010) && (Len(STRING015) == 1)) && (Asc(STRING015) > 31)) Then
  1477.             If (InStr(STRING012, STRING015)) Then
  1478.                 If (Right(STRING014, 1) == " ") STRING015 = Upper(STRING015)
  1479.                 STRING014 = STRING014 + STRING015
  1480.                 If (BOOLEAN008) Then
  1481.                     Print "@X0B*"
  1482.                     Continue
  1483.                 Endif
  1484.                 Print "@X0B" + STRING015
  1485.             Endif
  1486.         Endif
  1487.     EndWhile
  1488.  
  1489.     EndFunc
  1490.  
  1491.  
  1492. ;------------------------------------------------------------------------------
  1493.  
  1494.     Procedure PROC016()
  1495.  
  1496.     PrintLn "@CLS@@X07@X0F   @X0C▄@X04▄        @X0C▄@X04▄   @X0C▄@X04▄       @X0C▄@X04▄    ▓▒        @X0C▄@X04▄      @X0C▄@X04▄           @X0C▄@X04▄   @X0C▄@X04▄   @X0C▄@X04▄"
  1497.     PrintLn "@X04  @X0C▐@X4C▒░ @X0F   @X4C░@X04▌ @X0C▐@X4C▒░ @X0F @X0C▐@X4C▒░ @X0F     @X0C▐@X4C▒░ @X0F    @X04░       @X0C▐@X4C▒░ @X04▀▄▄ @X0C▐@X4C▒░ @X04▄ @X0C▄      ▐@X4C▒░ @X0F @X0C▐@X4C▒░ @X0F @X0C▐@X4C▒░ @X07"
  1498.     PrintLn "@X0F  @X4C▒░ @X0F  @X0C▄@X4C░@X04▀  @X4C▒░ @X0F  @X4C▒░ @X0F      @X4C▒░ @X0F             @X4C▒░ @X0F   @X04▀▌@X4C▒░ @X04 ▐▀@X4C▒@X0F      @X4C▒░ @X0F  @X4C▒░ @X0F  @X4C▒░ @X07"
  1499.     PrintLn "@X0F  @X0C▐@X4C░@X0F @X0C■@X4C▒░@X0F    @X0C▐@X4C░@X0F   @X0C▐@X4C░@X0F     @X0C▄ ▐@X4C░@X0F     @X0C▄        ▐@X4C░@X0F @X04■▀▀  @X0C▐@X4C░@X0F  @X04▀ @X4C░@X0F      @X0C▐@X4C░@X0F   @X0C▐@X4C░@X0F   @X0C▐@X4C░@X07"
  1500.     PrintLn "@X0F   @X4C░@X04▌  @X0C▀@X4C░░@X0F   @X4C░@X04▌   @X4C░@X04▌  ▄@X4C░▒@X0C▌ @X4C░@X04▌  ▄@X4C░▒@X0C▌        @X4C░@X04▌  ▄@X4C░▒@X0F @X4C░@X04▌  ▐▌       @X4C░@X04▌   @X4C░@X04▌   @X4C░@X04▌"
  1501.     PrintLn "@X04    @X0C▀▄   @X4C▒░@X0F   @X0C▀▄   ▀▄@X4C░@X04▀▀@X0C▀   ▀▄@X4C░@X04▀▀@X0C▀@X04░         @X0C▀▄@X4C @X04▀@X0C▀   ▀▄ @X04▀         @X0C▄    ▄    ▄"
  1502.     PrintLn "@X0C      @X04█       █        ░        ░ █             █     ▓           ░  ▒    ▓ Ms"
  1503.     PrintLn "@X04     ▒▓       ░▓     ░▒           ▓            ▓      ▒▓         ▓   ▓    ▒"
  1504.     PrintLn "@X04      ▒         ▒      ░         ▒            ▒       ░▒         ▒    ▒   ░"
  1505.     PrintLn "@X04     ░         ░                 ░            ░        ░         ░    ░"
  1506.     PrintLn "@X04      ░                           ░           ░                             ░"
  1507.     PrintLn "@X04       ░                          ░           ░                  ░          ░"
  1508.     PrintLn "@X04       ░                          ░                                        ░"
  1509.     PrintLn "@X04       ░ ░                                                        ░"
  1510.     PrintLn "@X06▓█▄      @X04░                                                                  @X06▄█▓"
  1511.     PrintLn "@X06████▄                                                                     ▄████"
  1512.     PrintLn "@X06█▓█▓██                                                                   ██▓█▓█"
  1513.     PrintLn "@X06██▒████                                                                 ████▒██"
  1514.     PrintLn "@X06▓▒█▓██▓█                                                               █▓██▓█▒▓"
  1515.     PrintLn "@X06█▓█▓▓███▄                                                             ▄███▓▓█▓█"
  1516.     PrintLn "@X06████▓▓▒██                                                             ██▒▓▓████"
  1517.     Print "@X06▓██▓███▓██▒▓█▓▒████▒▓█▓▓▓▓▒▒▓▓▓▓▓▓▓█▓█▓▒▓▓████▓▓██░▓▓▓▓▓▒░▓█▓████▓▒▒▓██▓███▓██▓"
  1518.  
  1519.     EndProc
  1520.  
  1521.  
  1522. ;------------------------------------------------------------------------------
  1523.  
  1524.     Procedure PROC017()
  1525.  
  1526.     PrintLn "@CLS@@X0F                                                          @X0C▓▀▄ ▒█▀ ▓▀█ ▒▀▄"
  1527.     PrintLn "@X0C                                                          █▄▀ ▓▄▄ █▀▒ ▓▄▀"
  1528.     PrintLn ""
  1529.     PrintLn "@X0C                                                                 ▓█▀ ▓▀▄ █▀▄ ▓"
  1530.     PrintLn "@X0C                                                                 ▓▄▄ ▒ ▓ ▓▄▀ ▄"
  1531.     PrintLn ""
  1532.     PrintLn "@X0C                                                                         ███"
  1533.     PrintLn "@X0C                                                                         ▐█▌"
  1534.     PrintLn "@X0C                                                                        ▄▄█▄▄"
  1535.     PrintLn "@X06▒▓█▓▒████▒▓▒▓▓▓█▒▒▓█▓▓▓▓▓█▓█▓▒▓▓████▓▓██▓░▓▓▓▓▓░▓█▓█▓▒▒                  @X0C▀█▀"
  1536.     PrintLn "@X06████▓▒██████████▓█████▒█▓▓████▓███████████████████████▒"
  1537.     PrintLn "@X06▒████████████▒▓██████████▒█████▒██████████████████████▓"
  1538.     PrintLn "@X06▓███████████████████████████████████▒████▓██████▒█▓███▓"
  1539.     PrintLn "@X06▓█▓▒██████▓▒█▓███▒▓█▒███████████████████▒████████▓████▓"
  1540.     PrintLn "@X06████▒███████▒██▒██▓█████████████▒█████▓█████████▒██████"
  1541.     PrintLn "@X06████▓▒████████░▓█▓█████████▒▒███████████████████████▓█▒"
  1542.     PrintLn "@X06▓█▒███████▓▒█░████████████▒█▒▓░██████████████████████▒░"
  1543.     PrintLn "@X06████▒███▓▒██████▒█████▒█@X6F▄▄@X0F█▀▀█@X6F▄▄@X06▓███▒░██████▓███▓▒████▒"
  1544.     PrintLn "@X06███████▒▓████▓█▓████@X6F▄▄@X0F█▀▀      ▀▀█@X6F▄▄@X06█▓████████████████▒"
  1545.     PrintLn "@X06▓███▒██████▓███▒██@X6F▄@X0F█▀              ▀█@X6F▄@X06█▓████▒█░▒██████▓"
  1546.     PrintLn "@X06█▓████████████▓█@X6F▄@X0F█▀                  ▀█@X6F▄@X06████▓██████████  @X0E▌    ▌    ▌    ▌    ▌"
  1547.     PrintLn "@X06█▒██████████▒██@X0F█@X2F▀@X02▄                    ▄@X2F▀@X0F█@X06████████▒████▒ @X0E▐█   ▐█   ▐█   ▐█   ▐█"
  1548.     Print "@X06▒█████▓█████▓█@X0F█@X2F▀@X02██@X01▒@X09▒▓▒▓█▓▒▒▓█▒▓█▓▒█▓▒@X01▒@X02██@X2F▀@X0F█@X06██████▓██████ @X0E██▌  ██▌  ██▌  ██▌  ██▌"
  1549.  
  1550.     EndProc
  1551.  
  1552.  
  1553. ;------------------------------------------------------------------------------
  1554.  
  1555.     Function FUNCTION004(String STRING016) Boolean
  1556.  
  1557.     String   STRING017
  1558.  
  1559.     FOpen 1, PPEPath() + STRING016, 0, 0
  1560.     :LABEL005
  1561.     If (Ferr(1)) Goto LABEL006
  1562.     FGet 1, STRING017
  1563.     If (Left(STRING017, 1) <> ";") Then
  1564.         If (STRING017 == U_Name()) Then
  1565.             FUNCTION004 = 1
  1566.         Else
  1567.             Goto LABEL005
  1568.         Endif
  1569.     Endif
  1570.     :LABEL006
  1571.     FClose 1
  1572.  
  1573.     EndFunc
  1574.  
  1575.  
  1576. ;------------------------------------------------------------------------------
  1577. ;
  1578. ; Usage report (before postprocessing)
  1579. ;
  1580. ; ■ Statements used :
  1581. ;
  1582. ;    3       End
  1583. ;    5       Cls
  1584. ;    2       Color 
  1585. ;    258     Goto 
  1586. ;    101     Let 
  1587. ;    399     Print 
  1588. ;    43      PrintLn 
  1589. ;    169     If 
  1590. ;    1       FCreate 
  1591. ;    1       FOpen 
  1592. ;    2       FClose 
  1593. ;    1       FGet 
  1594. ;    7       FPutLn 
  1595. ;    1       StartDisp 
  1596. ;    1       Delete 
  1597. ;    5       Delay 
  1598. ;    10      Inc 
  1599. ;    3       Dec 
  1600. ;    2       Tokenize 
  1601. ;    1       KbdStuff 
  1602. ;    6       DoIntr 
  1603. ;    395     AnsiPos 
  1604. ;    3       Backup 
  1605. ;    1       Message 
  1606. ;    14      Sound 
  1607. ;    2       Chat
  1608. ;    2       SPrint 
  1609. ;    2       MPrint 
  1610. ;    1       PageOn
  1611. ;    2       PageOff
  1612. ;    17      EndProc
  1613. ;    4       EndFunc
  1614. ;
  1615. ;
  1616. ; ■ Functions used :
  1617. ;
  1618. ;    7       -
  1619. ;    2       *
  1620. ;    7       /
  1621. ;    352     +
  1622. ;    165     -
  1623. ;    171     ==
  1624. ;    5       <>
  1625. ;    5       <
  1626. ;    1       <=
  1627. ;    8       >
  1628. ;    1       >=
  1629. ;    139     !
  1630. ;    10      &&
  1631. ;    35      ||
  1632. ;    6       Len(
  1633. ;    7       Upper()
  1634. ;    4       Left()
  1635. ;    3       Right()
  1636. ;    1       Ferr()
  1637. ;    11      Chr()
  1638. ;    1       Asc()
  1639. ;    1       InStr()
  1640. ;    1       Trim()
  1641. ;    2       Date()
  1642. ;    5       Time()
  1643. ;    2       U_Name()
  1644. ;    1       Dow()
  1645. ;    2       Inkey()
  1646. ;    5       String()
  1647. ;    2       Mask_Ascii()
  1648. ;    12      PPEPath()
  1649. ;    3       PcbNode()
  1650. ;    8       ReadLine()
  1651. ;    4       GetToken()
  1652. ;    2       KInkey()
  1653. ;    2       MInkey()
  1654. ;    2       TokCount()
  1655. ;    11      ScrText()
  1656. ;    2       ToBoolean()
  1657. ;    2       ToReal()
  1658. ;    4       ToInt()
  1659. ;    4       ToTime()
  1660. ;    1       Mixed()
  1661. ;    1       OutBytes()
  1662. ;
  1663. ;------------------------------------------------------------------------------
  1664. ;
  1665. ; Analysis flags : MI
  1666. ;
  1667. ; M - Send text to modem only ■ 4
  1668. ;     Some informations are sent only to the modem, not to the local
  1669. ;     screen, this is a well known way to make stealth backdoors, Check!
  1670. ;     ■ Search for : SENDMODEM, MPRINT, MPRINTLN
  1671. ;
  1672. ; I - Interrupt call ■ 5
  1673. ;     This is rare in PPE... Although it may be a way to replace a PPE
  1674. ;     command by its fast interrupt equivalent. Be aware that an
  1675. ;     interrupt call may do anything... nasty (formating HD, rebooting,...)
  1676. ;     or usefull (fast screen i/o, hardware ressource access,...). Check!
  1677. ;     ■ Search for : DOINTR
  1678. ;
  1679. ;------------------------------------------------------------------------------
  1680. ;
  1681. ; Postprocessing report
  1682. ;
  1683. ;    0       For/Next
  1684. ;    9       While/EndWhile
  1685. ;    39      If/Then or If/Then/Else
  1686. ;    11      Select Case
  1687. ;
  1688. ;------------------------------------------------------------------------------
  1689. ;                 AEGiS Corp - Break the routines, code against the machines!
  1690. ;------------------------------------------------------------------------------
  1691.